dim sedo as integer
dim x
dim rs
sedo = me.n_istimara.value
set rs =currentdb.openrecordset ("istimaramakasa")
for x = 1 to sedo
        rs.addnew
               rs![bar] = me.[bar].value
       rs!m = nz(dmax("[m]","istimaramakasa" , "bar='" & me.bar & "'"),0) + 1
        rs.update
        next
        rs.close
set rs = nothing
me.[istimaramakasa subform].requery


يضاف هذ الكود في حدث بعد التحديث ل n_istimara  في النموذج الرئيسي  